-- card: 4583 from stack: in
-- bmap block id: 5303
-- flags: 4000
-- background id: 4724
-- name: Budget
----- HyperTalk script -----
on openCard
  show cd fld 1
  wait for 3 seconds
  Repeat 4 times
    set highlite of btn 2 to true
    set highlite of btn 2 to false
  end Repeat
  lock screen
  hide cd fld 1
  unlock screen with dissolve
end openCard


-- part 4 (button)
-- low flags: 80
-- high flags: A000
-- rect: left=3 top=299 right=317 bottom=43
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 9
-- style flags: 8192
-- line height: 12
-- part name: Change
----- HyperTalk script -----
on mouseUp
  lock screen
  Repeat with x = 5 to 10
    show cd btn x
  end Repeat
end mouseUp



-- part 5 (button)
-- low flags: 00
-- high flags: A000
-- rect: left=5 top=299 right=317 bottom=43
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 9
-- style flags: 8192
-- line height: 12
-- part name: Done
----- HyperTalk script -----
on mouseUp
  beep
end mouseUp



-- part 7 (button)
-- low flags: 00
-- high flags: A000
-- rect: left=2 top=318 right=337 bottom=42
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 9
-- style flags: 8192
-- line height: 12
-- part name: %
----- HyperTalk script -----
on mouseUp
  beep
end mouseUp



-- part 8 (button)
-- low flags: 80
-- high flags: A000
-- rect: left=3 top=318 right=337 bottom=42
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 9
-- style flags: 8192
-- line height: 12
-- part name: $'s
----- HyperTalk script -----
on mouseUp
  lock screen
  set cursor to watch
  put fld 3 into fld 12
  put fld 4 into fld 18
  put fld 5 into fld 24
  put fld 6 into fld 30
  Repeat with x = 44 to 75
    hide fld x
  end Repeat
  hide cd btn 4
  show cd btn 3
  hide bkgnd btn 14
  show bkgnd btn 15
  unlock screen with dissolve
  set cursor to browse
end mouseUp



-- part 14 (field)
-- low flags: 81
-- high flags: 0002
-- rect: left=291 top=65 right=120 bottom=442
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 10
-- style flags: 8192
-- line height: 13
-- part name: 


-- part 21 (button)
-- low flags: 80
-- high flags: 0004
-- rect: left=1 top=223 right=300 bottom=125
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: 


-- part 22 (button)
-- low flags: 80
-- high flags: A004
-- rect: left=4 top=227 right=246 bottom=122
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Wedding Reception
----- HyperTalk script -----
on mouseUp
  ask "Please Enter Amount" with "(e.g 500, 1000, 10000, etc ...)"
  if it is empty then exit mouseUp
  if it is "(e.g 500, 1000, 10000, etc ...)" then
    beep
    answer "You didn't enter a number!" with "Oops"
    exit mouseUp
  end if
  lock screen
  push cd
  put it into dollar6
  put empty into fld 2
  put it into fld 6
  put it into fld 30
  Repeat with x = 3 to 6
    add fld x to fld 2
  end Repeat
  go cd Reception1 of stack Eventcards
  put dollar6 into fld 14
  pop cd
  Repeat with x = 5 to 10
    hide cd btn x
  end Repeat
  unlock screen with dissolve
  put 0 into sumUp
  Repeat with x = 25 to 29
    add fld x to sumUp
  end Repeat
  if sumUp <> fld 30 then answer "Please correct RECEPTION allocations!"
  beep
end mouseUp



-- part 23 (button)
-- low flags: 80
-- high flags: A004
-- rect: left=4 top=244 right=263 bottom=122
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Wedding Ceremony
----- HyperTalk script -----
on mouseUp
  ask "Please Enter Amount" with "(e.g 500, 1000, 10000, etc ...)"
  if it is empty then exit mouseUp
  if it is "(e.g 500, 1000, 10000, etc ...)" then
    beep
    answer "You didn't enter a number!" with "Oops"
    exit mouseUp
  end if
  lock screen
  push cd
  put it into dollar5
  put empty into fld 2
  put it into fld 5
  put it into fld 24
  Repeat with x = 3 to 6
    add fld x to fld 2
  end Repeat
  go cd Ceremony1 of stack Eventcards
  put dollar5 into fld 14
  pop cd
  Repeat with x = 5 to 10
    hide cd btn x
  end Repeat
  unlock screen with dissolve
  put 0 into sumUp
  Repeat with x = 19 to 23
    add fld x to sumUp
  end Repeat
  if sumUp <> fld 24 then answer "Please correct CEREMONY allocations!"
  beep

end mouseUp



-- part 24 (button)
-- low flags: 80
-- high flags: A004
-- rect: left=4 top=261 right=280 bottom=122
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Rehearsal Dinner
----- HyperTalk script -----
on mouseUp
  ask "Please Enter Amount" with "(e.g 500, 1000, 10000, etc ...)"
  if it is empty then exit mouseUp
  if it is "(e.g 500, 1000, 10000, etc ...)" then
    beep
    answer "You didn't enter a number!" with "Oops"
    exit mouseUp
  end if
  lock screen
  push cd
  put it into dollar4
  put empty into fld 2
  put it into fld 4
  put it into fld 18
  Repeat with x = 3 to 6
    add fld x to fld 2
  end Repeat
  go cd Rehearsal1 of stack Eventcards
  put dollar4 into fld 14
  pop cd
  Repeat with x = 5 to 10
    hide cd btn x
  end Repeat
  unlock screen with dissolve
  put 0 into sumUp
  Repeat with x = 13 to 17
    add fld x to sumUp
  end Repeat
  if sumUp <> fld 18 then answer "Please correct DINNER allocations!"
  beep
end mouseUp



-- part 25 (button)
-- low flags: 80
-- high flags: A004
-- rect: left=4 top=278 right=297 bottom=122
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Bridal Shower
----- HyperTalk script -----
on mouseUp
  ask "Please Enter Amount" with "(e.g 500, 1000, 10000, etc ...)"
  if it is empty then exit mouseUp
  if it is "(e.g 500, 1000, 10000, etc ...)" then
    beep
    answer "You didn't enter a number!" with "Oops"
    exit mouseUp
  end if
  lock screen
  push cd
  put it into dollar3
  put it into fld 2
  put it into fld 3
  put it into fld 12
  Repeat with x = 4 to 6
    add fld x to fld 2
  end Repeat
  go cd Shower1 of stack Eventcards
  put dollar3 into fld 14
  pop cd
  Repeat with x = 5 to 10
    hide cd btn x
  end Repeat
  unlock screen with dissolve
  put 0 into sumUp
  Repeat with x = 7 to 11
    add fld x to sumUp
  end Repeat
  if sumUp <> fld 12 then answer "Please correct SHOWER allocations!"
  beep
end mouseUp



-- part 26 (button)
-- low flags: 80
-- high flags: 2000
-- rect: left=3 top=299 right=319 bottom=45
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Cancel
----- HyperTalk script -----
on mouseUp
  lock screen
  Repeat with x = 5 to 10
    hide cd btn x
  end Repeat
end mouseUp



-- part contents for background part 17
----- text -----
BUDGET PROFILE

-- part contents for background part 68
----- text -----
                                  WELCOME TO THE MAC WEDDING HELP SYSTEM. 
When you are done reading this screen, click in this field to hide it from view.  Thank You.

Here's an explanation of the BUDGET PROFILE:

The Budget Profile allows you to set overall spending limits on major events and allocate that expense on a percentage basis to responsible parties.  Editing can be done directly on this card allowing you to change or delete existing budget information. 

After entering  the dollar  limits, click on the Done button. Then proceed to enter detail allocations for each category. After that you may  click on the % button which will cause the program to test your $ inputs against the limits previously set  and then convert all expense data to percent values. If you are over the limit it will tell you in which category the overage exists and allow you to correct the input before proceeding.

After the dollar amounts have been entered and set you can cycle between % and $ readouts in the Expense Allocation Table. The dollar amounts only, in the Expense Allocation Table, can also be changed at any time.

If you wish to see a graphic representation of expense allocations, in any category, click the PIE CHART button in the lower right-hand corner of the screen. A pop-up menu will appear from which you can select the category you wish to display. A PRINT button allows you to produce a hard copy of the selected % Pie Chart.

The REPORTS Button allows you to print a copy of the screen.


-- part contents for card part 14
----- text -----
Please enter $ amount for each category 
(e.g. 500, 1500), then click "Done" button

-- part contents for background part 19
----- text -----
250

-- part contents for background part 20
----- text -----
250

-- part contents for background part 21
----- text -----
1500

-- part contents for background part 22
----- text -----
6500

-- part contents for background part 18
----- text -----
8500

-- part contents for background part 23
----- text -----
150

-- part contents for background part 33
----- text -----
100

-- part contents for background part 40
----- text -----
75

-- part contents for background part 41
----- text -----
175

-- part contents for background part 44
----- text -----
1000

-- part contents for background part 45
----- text -----
250

-- part contents for background part 48
----- text -----
250

-- part contents for background part 50
----- text -----
4500

-- part contents for background part 51
----- text -----
1500

-- part contents for background part 54
----- text -----
500

-- part contents for background part 37
----- text -----
250

-- part contents for background part 43
----- text -----
250

-- part contents for background part 49
----- text -----
1500

-- part contents for background part 55
----- text -----
6500